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CHERS AMIS, 
HHHHTHEHET+ 
Avec ce numero d'avril, nous comblons peu à peu notre retard. Vous allez trouver 
que Notre journal est en train de changer. C'est vrai. Tout d'abord cet éditorial. 
Ensuite, le nouveau logo, en première page, dû à notre ami Jean Boschat, et qui à été 
adoptélors de notre dernière assemblée générale. La nouvelle mise en page, aussi, plus 
claire, plus aérée, et qui évoluera encore. 


Mais me direz vous c'est la forme et non le fond ?!? 


Détrompez-vous: le club vit une mutation importante. Avec notre centième adhérent, 
nous prenons vraiment conscienceque nous représentons quelquechose dans votre esprit. 
Aussi allons nous dévellopper et intensifier nos activités. 


Nous sommes actuellement en négociations pour obtenir une salle où nous pourrons 
nous réunir une fois par mois, le samedi. Nous pourrons ainsi nous connaître, nous 
rencontrer davantage. Laprogrammation ne se pratiquera plus en solitaire! et chacun de 
nous pourra montrer le matériel qu'il possède et ainsi en faire bénéficier au autres. 


La programmathèque que met en place André Oisel, commence à se roder: tous les 
programmes parus dans J.P.C. sont disponibles. Il vous suffit soit de lui envoyer vos 
cartes magnétiques ou vos cassettes, soit de lui commander les supports de programmes, 
accompagnés de timbres pour le retour. Son adresse: 5, les nouveaux horizons - Elancourt, 
78310 Maurepas. Vous pouvez aussi passer votre commande au siège du PPC.P.C., d'où 
nous lui transmettrons votre commande. Les supports possible, sont: les cartes magnétiques, 
les cassettes, les éproms ou même les codes barres (codes barres qui seront effectués 
grâce à l'aimable participation de la rêgle à calcul, bd St Germain à Paris, qui met à 
notre disposition dans leurs locaux une table trançante, et nous espérons que HP nous 
rendra le mñe service. 


Nous intensifions nos relations avec les clubs étrangers. Vous pourrez bientôt lire 
dans nos colonnesun banc d'essai du MLDL hollandais, qui est maintenant en vente au club 
au prix de 3050FF. Nous recevons maintenant le journal de PPC Lausanne, qui est magnifique 
et qui circulera, ainsi que tous les autres journaux étangers, dans nos trés prochaines 
réunions. 


Le SICOB de printemps (du 14 au 19 mai) représentera lui aussi un élément important 
dans la vie de notre club. Nous avons pris un stand de 18m? . Nous en attendons beaucoup, 
et nous espérons que vous serez nombreux à passer le voir. 


Le HP71B, que vous allez découvrir dans ces colonnes, représente lui aussi une étape 
importante. Nous allons essayer de luidonner une place grandissante, car "TITAN'" (tel est 
son nom de code), est sans conteste une continuïté pour notre HP41 bien aimée. Une suite 
logique, en quelque sorte... . Mais rassurez vous: nous n'abandonnerons pas de sitôt 

notre vaillante 41 et notre beau 75 pour le 71B, si puissant soit-il. 


Nos relations avec le club de Toulouse sont, quant à elle, inchangées. Depuis 
plusieurs mois, Jean Daniel nous fait des propositions allant dans le sens d'une absorption 
de notre club par le sien, même s'il appelle celà: "un journal commun, utilisé librement 
par nos deux clubs''. Si nous avons créé le PPC PARIS CHAPTER, ce n'est pour se faire annexer 
un an plus tardl 


Avant de vous quitter, nous ne pouvons pas résister à la tentation de lancer un appel 
au peuple: Notre Club vit par VOUS et pour VOUS. Vous avez certainement des propositions 
à faire, des programmes à nous envoyer, des talents pédagogiques à faire partager; nous 
attendonsvos lettres même manuscrites! 


Machineàécrirement vôtre 


LE BUREAU 


— DOSSIER - 
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Module HP-IL enfichable 


Affichage graphique de 22 caractères 


Alimentation par 4 piles rondes 1,5 V, 


\ 


Clavier QWERTY 


- Redéfinition des touches 


ou par chargeur HP 


- Minuscules accessibles directement 


4 ports d'entrées/sorties pour: 


- modules RAM de 4 Ko 


D 


- modules ROM jusqu'à 64 Ko 





Grandeur 
nature 


- Matrice de 8 x 132 pixels 
-uFenêtre de 22 caractères sur 96 


- Indicateurs 
- Redéfinition de caractères 


Lecteur de cartes enfichable 


Pavé numérique 


Opérating System sur 64 Ko ROM 


- mode CALC 
- langage Basic avec plus de 240 instructions 


- langage FORTH par module enfichable 
Mémoire RAM de 17,5 Ko extensible à 33,5 Ko 


Fonctions mathématiques et statistques 


Compte rendu du séminaire HP à Grenoble 


Les 22 et 23 mars 1984, je représentais le club PPC 
un séminaire organisé à HP dans son usine de Grenoble, 
l'occasion de la sortie des HP 75D et HP 71. 


Dix-huit personnes étaient présentes, représentant 
la France, l'Albemagne, la Belgique. Les cours se 
déroulaient en Anglais. 


D 


Sur le plan des nouveautés, HP nous annonce une péite 
bombe: une imprimante à jet d'encre, pour 4000 Frs, interfacée 
HP-IL. Une nouvelle technologie à un prix abordable ! 

Elle est absolument silencieuse: à l'autre bout d'une petite 
salle, je ne me suis pas rendu compte qu'elle fonctionnait ! 
Le HP 75D et le HP 71 ne sont plus des nouveautés, pour vous 
fidèles lecteurs de JPC. 

J'ai vu en photo un boîter étanche en aluminium pour le 71: 
pour les applications sur chantiers et en plein air. 

Le modem HP-IL n'est pas homologué aux normes européennes. 
HP cherche et trouve un coupleur acoustique, chez SENDATA. 
Le prix est assez élevé (395 $#), et il faut compter en plus 
l'interface HP-IL RS 232 . Allons messieurs de chez HP: un 
peu de réalisme ! 

Annocé aussi, un outil pour développer des logiciels en 

ROM pour le 75. 

HHP (Hand Held Products: ne pas confondre), présente un 
synthétiseur de voix HP-IL, une ROM (ou plutôt EPROM, 

peut être ?) de 32 Ko, un système de développement. 


Savez-vous que le 71B sera vendu par les vendeurs 
de HP 3000 et des séries 200 ? (non, ne cherchez pas; un 
HP 3000, ça ne tient pas dans votre chambre) La raison 
de ceci est que le 71 sera enfait une extension des'gros'. 


HP semble miser beaucoup sur les ROM utilisateurs 
(Custom Roms). À titre indicatif, ça vous coutera, pour 
un HP 75, 5000 $ pour la matrice, et 30 $ par Rom de 
8 Ko. Sachez que la commande minimale est de 50 modules... 


Puis, vinrent les cours proprement dit. Notre 
charmant professeur s'appelait (d'ailleurs, elle s'appelle 
toujours) Janet Placido. Elle a fait partie de la petite 
équipe (une dizaine de personnes), qui ont conçu Titan, 
dépuis 5 ans. Elle connait le 71 ... comme si elle l'avait 
fait : 


Le 71 sera, d'après HP, le plus puissant ordinateur de 
sa catégorie d'ici la fin de l'année. Je pense que c'est 
déjà bien parti Des modules de mémoire morte seront 
bientôt mis sur le marché: un module Maths, apparament 
très puissant, et dont les fonctions seront intégrées 
dans le Basic. Un module Finance, Curve fitting (ajustement 
de courbes), Analyse de circuits, Surveying (topographie), 
un éditeur de textes. Un livret avec cartes magnétiques 
devrait sortir prochainement: "Develppment utilities". Le 
module FORTH, enfin, devrait ètre disponible en juin. 


Notons que la structure de ce nouveau bijou permettra 
l'utilisation d'une extension de ports. 


I1 a été conçu comme un système ouvert: tous les 
renseignements seront connus. Ces renseignements, ce sont 
les "IDS", qui fournissent tout ce qu'il est possible de 
savoir sur cette belle bète. Ils se présenterons sous la 
forme de 5 volumes. Leur achat ne pourra se concevoir 
qu'au sein de petits groupes, vus les prix. 

Volume I: 50 $# , donne la structure de la mémoire, la 
description des fichiers LEX et BIN, ainsi que les fichiers 
Basic. Il donne aussi les algorithmes, ainsi que la repré- 
sentation des nombres, fournit les renseignements sur la 
manière d'utiliser l'horloge, décrit le jeu d'instruction 
du microprocesseur. 

Volume Il: 50 $, donne les points d'entrée du Basic. IL y 
en a 790. Description de la configuration, du clavier, du 
BASIC, des fichiers, de la lecture de cartes, des entrées- 
sorties, et des messages d'erreur. Et cé qu'on peut en 
faire. 

Volume III: C'est le gros morceau: 64 Ko de listings 
commentés. 200 $ 

Volume IV: 200 #, donne tous les renseignements sur l'aspect 
matériel de la chose. 

Volume V: le prix n'est pas arrêté. Il decrit tout l'HP-IL . 
Comme vous le voyez, ça double le prix de la machine. 
D'accord pour responsabiliser l'acheteur, mais pas à ce point 
là ! A décharge, il faut quand même dire qu'il y a une 
masse assez grande (!) à imprimer: Les exemplaires que j'ai 
eû entre les mains sont des prototypes: sortis directement 
d'une imprimante, ce sont des gros pavés, d'au moins 6 cm 


d'épaisseur, et au moins 15 pour le volume III : IL faudra 


> 


un certain temps avant de connaître à fond Titan. 


L'accès au bus interne est possible en enlevant le 
lecteur de cartes. On powrra vraissemblablement ajouter 
des Eprom, ou des Ram C-Mos extemes. 


A la fin, j'ai vu une chose qui m'a littéralement 
coupé les jambes: Un 71 utilisait un. gros terminal HP : 
L'utilisation au clavier se faisait comme sur le clavier 
normal, et on avait un vrai écran pour contempler ses 
élucubrations ! La liaison était établie par l'HP-IL, puis 
l'interface RS 232, et le tout accompagné de logiciel. Il 
n'y avait pas de baisse de la rapidité apparente. Le 71 
est prometteur ... 


En bref, ce séminaire m'a fait aller de découvertes 
en surprises, que je vous fait partager aujourd'hui. 
Je tiens à remercier Gery Descamps, Al Miksch, Janet 
Placido et Maurice Richez pour leur accueuil, leur 
compétence, et leur interèêt pour le club PPC-Paris Chapter. 
De telles initiatives sont à renouveler. 


Le HP 71 au banc d'essai, 


Ce qui frappe d'emblée, sur le dernier-né de chez HP, 
c'est sa taille: 10 cm par 20. C'est à peine plus grand 
qu'une HP 41 avec lecteur de cartes. C'est un ordinateur 
réellement de poche. Son air de famille avec le HP 75 ne 
laisse planer aucun doute sur sa provenance; son prix 
également: de l'ordre de 4000 Frs. 


Sortons le de sa housse qui ressemble fort à celle 
de la 41. On distingue tout de suite le pavé numérique à 
droite. Le clavier QWERTY fait 55 touches, à répétition 
automatiques, et agréables, quoiqu'un peu petites. Mais 
il est vrai qu'on ne peut avoir un vrai clavier de machi- 
ne à écrire sur 2 dm2 ! 


Titan parle Basic. Les ordres les plus courament 
utilisés sont disposés de façon très judicieuse sur les 
touches, et ils sont accessibles par appui de la touche 
jaune (f). Ca compense l'absence des abréviations si 
pratiques sur le HP 75. La touche (g) permet d'entrer 
directement les minuscules. Ces deux touches autorisent 
159 séquences différentes. Leur fonctionnement est 
particulier: elles se comportent comme des bascules 
(comme la touche Shift sur 41), mais on peut les laisser 
appuyées, et ainsi conserver l'avantage de la touche Shift 
façon 75. 

La touche ONŸOFF est un peu plus plate que les autres, et 
est située en bas à gauche. Malgré cela, il arrive de 
réveiller accidentellement la bête. Elle sert également 


à effacer l'affichage. 


Celui-ci est monoligne, de 22 caractères. IL est 
vraiment très beau, mais HP aurait pû placer 2 lignes 
sur la même surface: cela lui aurait donné de meilleures 
armes contre la concurrence. La nouveauté est que cet 
afficheur est graphique: 8 x 132 points. La mémoire 
décran est rappelable par l'ordre GDISP$. Le graphisme 
est assez lourd à manipuler, mais par contre on dispose 
de 128 caractères redéfinissables dans une matrice de 
6 par 8 points. C'est une très bonne chose. 
L'écran est en fait une fenêtre de 22 caractères sur 
une ligne qui en comporte 96. 2 flèches à gauche et à 
droite de l'écran permettent de savoir si Le message 
affiché continue à droite ou à gauche. Très pratique, vous 
pouvez me croire! Le contraste (c'est à dire l'angle de 
vision) est réglable par logiciel en utilisant l'instruc- 
tion CONTRAST, suivie d'un nombre de O à 15. L'afficheur 
est ainsi toujours visible. 


L'éditeur est très commode à utiliser: on se déplace 
dans le programme à l'aide des deux touches ‘flèches 
verticales', et sur une ligne par les deux horizontales. 
Pas besoin de commande EDIT, pas besoin de recopier la 
ligne, pas besoin de se déplacer à la fin de celle-ci 
pour taper (END LINE). Quoi de plus simple ? 

Ajoutons des touches pour insérer (I/R), remplacer, effacer 
un caractère (-CHAR), revenir en arrière (BACK), effacer le 


reste de la ligne (-LINE), aller au début et à la fin de la 
ligne affichée. 
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On peut protéger certaines zones de l'affichage par 
l'ordre WINDOW x,y , qui réserve la partie comprise entre 
les colonnes x et y, et garde le reste intact. 

Les fonctions d'horloge sont plutôt limitées: date, 
heure, réglage de l'exactitude, et 3 comptes à rebours: 
ceux-ci permettent de créer une fonction alarme, mais très 
lourdement. J'ai l'air plutôt blasé, me direz vous. C'est 
exact, j'ai l'habitude de la HP 41, de son module Horloge 
et ses fonctions très puissantes, et le 71 me déçoit un 
peu sur ce plan là. Mais je n'oublie pas que les matériels 
concurrents, quand ils ont une horloge, n'ont que la date 
et l'heure. Mais je ne perds pas espoir: il y a sur 
l'afficheur un indicateur ((+°)) dont il est dit dans la 
notice: réservé pour un usage futur ... Tiens donc, HP 
nous préparerait-il un module Horloge ? 


Un aspect très interessant du 71, et inédit à ma 
connaissance, est la pile de commandes: accessible par 
(g) sur la touche (END LINE), elle permet de remonter 
jusqu'aux 5 dermmières commandes effectuées, de les 
corriger et de les réentrer ! Du jamais vu ! Il est 
possible d'agrandir cette pile jusqu'à 16 niveaux. 

Le HP 71 n'a plus rien à envier aux plus puissants 


des éditeurs "pleine page" des gros ordinateurs ! 


Mais il sait aussi faire du bruit: BEKEP hauteur, 
durée produit un son dont le volume est réglé par le 
flag -25 (désarmé: normal, armé: fort). On peut lui 
couper le sifflet par BBEP OFF, ou en armant le flag —-2. 


Eh oui, vous avez bien lu, il y a des flags, ou 
plutôt "indicateurs binaires" sur le 71. Ils sont même 
128, pour vous servir, numérotés de -64 à +63. On peut 
les armer, les désarmer, les tester, les tester et les 
armer, etc... Les numéros O à 6% sont à la libre dispo- 
sition de l'utilisateur. Les numéros -1 à -32 sont dédiés 
à des tâches précises et sont manipulables directement. 
Les numéros -33 à -64 sont des indicateurs "système", que 
l'on ne peut modifier. (Enfin, théoriquement...) 


Le Basic du 71 permet aussi d'effectuer des calculs 
au clavier: 3/2+1-5 donne -2,5, sans effacer la ligne 3. 
Mais la souplesse n'est pas fantastique. Alors, HP créa 
le mode CALC : la puissance, toute en simplicité !: 
Malgré la notation algébrique utilisée, on ne regrette 
pas trop la RPN. Ici, les résultats intermédiaires sont 
toujours affichés, Vous décrire le mode CALC est impossi- 
ble: il faut l'utiliser pour comprendre. Trente secondes 
suffisent. Mon seul regret est qu'on ne peut pas utiliser 


les chaînes de caractères. 


Du coté des fonctions mathématiques, tout y est. 
C'est l'abondance: voici les plus inhabituelles sur les 
ordinateurs: % , Modulos (au pluriel), INT (au pluriel), 
FP qui extrait la partie fractionnaire. Les opérateurs 
logiques sont au grand complet: AND, OR, NOT et EXOR 
(ou exclusif). Les trois fonctions trigonométriques et 
leurs inverses s'utilisent en modes RADIANS, ou DEGREES. 
Conversions degrés/radians. Angle d'un vecteur (pour 
conversion en coordonnées polaires). Valeur Absolue. 
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Logarithmes en base e ou 10, eX*-1, Ln(x+l), PI, FACT, 
MAX, MIN, SGN... Mon seul regret: devant cette abondance, 
pourquoi n'avoir pas mis les fonctions hyperboliques ? 


Pour la mise au format des nombres, on a les fonctions 
FIX, SCI, et ENG jusqu'à 11, car voyez vous, Titan calcule 
sur 15 chiffres, et en affiche 12. L'exposant va de -499 à 
+499. Pour repasser en virgule flottante, il suffit de taper 
STD. 
4 arrondis sont possibles: vers O0, vers la valeur supé- 
rieure, vers la valeur inférieure, vers le plus proche 
Un défaut à signaler, qui devrait ètre corrigé sur la 
version commercialisée: 2°8 donne, suivant l'arrondi, 256 
ou 255,999999999, Même chose en général pour tous les 
nombres entiers à des puissances entières: 5°1 ne donne 


pas 5, comme on l'apprend à l'école ! 


Le générateur ée nombres aléatoires, RND, est initia- 
lisé soit par l'utilisateur, soit par l'horloge inteme. 


Cinq indicateurs binaires permettent de gérer les 
erreurs mathématiques, suivant les propositions de norme 
de l'IEEE. Vous expliquer en détail serait trop compliqué. 
Pour vous mettre l'eau à la bouche, sachez que FACT(254) 
ne fait pas 9,99999999999 E499, mais le nombre INF (in 
fini, bien sûr)... 


Les variables sont nommées soit par une lettre, soit 
par une lettre et un chiffre. Cela suffit pour la plupart 
des applications. Quatre types sont disponibles: Réelle, 
courte, entière, et chaîne alphanumérique. Les tableaux 
ne peuvent avoir le même nom que les variables, ce qui 
est un petit inconvénient, mais aussi un gros avantage: 
ça réduit les risques d'erreurs! Ces tableaux sont 
bidimensionnels (monodimensionnels pour les chaînes), et 
le premier indice peut être O ou 1 suivant OPTION BASE. 
Ils peuvent être redimensionnés sans ètre effacés. 


Les fonctions de traitement de chaînes de caractères 
sont très complètes: LEN (longueur), POS (position d'une 
sous chaîne), VAL (évaluation de la chaîne sous forme de 
nombre), STR$ (convertit un nombre en chaîne 
alphanumérique), NUM (convertit une chaîne en codes 
ASCII), CHRÉ (inverse de la précédente), et UPRCS 
(transformation en majuscules). Notons que les fonctions 
MIDÉ, RICHTÉ, LEFTS n'ont aucune raison d'être ici: 
AS[2,5] prend la sous chaîne de A$ composée des caractè- 
res n°9 2 à 5. 


Les fonctions statistiques sont, rengaine connue, 
très puissantes. On peut opérer sur un tableau à la fois, 
mais plusieurs tableaux peuvent coexister en mémoire. Pour 
rappeler le tableau J, par exemple, il suffit de taper 
STAT J. On peut alors effacer le tableau (CLSTAT), ajouter 
des données (ADD), effacer des données (DROP), calculer le 
total (TOTAL), le coefficient de corrélation (CORR), 
l'écart type (SDEV), la moyenne (MEAN), une régression 
linéaire (LR), et des valeurs suivant la courbe calculée 
(PREDV). La véritable puissance est qu'on peut faire ces 
calcules sur autant de variables que l'on veut (jusqu'à 
15). Il est alors très simple de calculer un ajustement de 
courbe exponentiel. 
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Le clavier est entièrement redéfinissable. En fait, 
il y en a deux: le normal, et le USER. Cela rappelera 
quelque chose aux possesseurs de HP 41.. Pour le clavier 
utilisateur, on redéfinit les touches par DEF KEY. On peut 
assigner une série de commandes, une seule lettre, ou tout 
ce qui peut vous aider à simplifier l'écriture d'un pro- 
gramme ou d'un texte. Trois sortes de définitions sont 
possibles: éxécution immédiate, éxécution immédiate avec 
affichage préalable, ou affichage seul. 
Par exemple, j'ai trouvé que la touche (RUN) était mal 
placée. Entre (g) et (<), trop d'erreurs étaient possibles. 
J'ai alors entré DEF KEY ‘'#46','RUN ; 
‘#46' estnuméro de la touche (RUN). Après la virgule vient 
la définition de la touche, et enfin le point virgule 
signifie que RUN ne fera que s'afficher. Maintenant, plus 
aucun programme ne démarre alors que je suis en train 
d'entrer une commande. 
Notons également que l'on peut modifier la définition 
d'une touche par FETCH KEY, et que l'on peut la visualiser 
en éxécutant la fonction VIEW, suivie de l'appui de la 
touche en question. Ca facilite énormément les choses, et 
évite quelques mauvaises surprises. 


Titan se programme en Basic. Les programmes sont 
conservés dans des fichiers, ce qui assure, si on le désire, 
une indépendance totale entre eux. On ne travaille jamais 
que sur un seul fichier à la fois: celui-ci est le "fichier 
courant". On change de fichier (c'est à dire de programme) 
en tapant EDIT, suivi du nom du frogramme (8 lettres au 
maximum). 

HP nous a concocté un tas de bonnes choses pour nous 
faciliter la mise au point des programmes. Une touche SST 
permet d'éxécuter en mode pas à pas. TRACE VARS permet de 
suivre un programme en affichant les variables. TRACE FLOW 
affiche les branchements. Ces deux ordres sont programmables. 
Une chose qu je ne comprends pas est que la touche SST n'est 
pas à répétition, ce qui aurait été bien utile. 

I1 existe un fichier toujours présent en mémoire: c'est le 
“workfile", qui est une sorte de fichier brouillon. Son 
accès est facilité,car il suffit de faire EDIT. On peut lui 
donner un nom par NAME. RENAME renomme n'importe quel 
fichier. 

Le défaut du fichier courant, c'est qu'on peut modifier 
par mégarde le programme (on peut s'y positionner aussi 
par RUN, ou LIST, ou ...) . C'est là que l'ordre SECURE 
intervient: vous ne pouvez plus modifier le fruit de 

votre cogitation, sauf taper UNSECURE. Notons aussi l'ordre 
PRIVATE, qui permet de le rendre illisible. 

L'ordre d'affichage sur l'écran est DISP. La durée de 
l'affichage et du déroulement de la ligne sur l'afficheur 
est réglée par DELAY. WAIT x arrète le programme pour x 
secondes, et PAUSE l'arrète tout court. 


Le contrôle d'erreur est très puissant (encore !) 
ERRM# donne le dernier message d'erreur, ERRN son numéro, 
et ERRL celui de la ligne où elle s'est produite. Les 
traditionnelles (mais peu courantes) fonctions ON ERROR 
GOTO ou ON ERROR GOSUB sont présentes. J'ai vu tourmmer 
un HP 71 avec des messages d'erreurs en allemand : Je 
crois que ces nouveaux messages d'erreurs sont rangés 


dans un fichier LEX (voir plus loin). C'est plus 
agréable de se faire insulter en français, 
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Génial: on peut protéger des zones de 4 Ko du MEMORY 
LOST, en les déclarant FREE PORT. L'heure est perdue, 
par contre. Mais cette possibilité est vraiment très 
interéssante, et vous l'apprécierez certainement à sa 
juste valeur, vous qui avez passé des nuits blanches 
sur des programmes, pour les effacer au petit matin d'un 
geste malencontreux... 


Un point important du Basic du 71, et qui le rapproche 
du Pascal, est l'existence de sous-programmes. Non, pas les 
GOSUB traditionnels. Plutôt des "procédures", Ceux-ci 
commencent par SUB, et finissent fort logiquement par 
END SUB. On peut passer des paramètres, et toutes les 
variables utilisées dans ce sous-programme sont indépendantes 
de celles du programme principal (variables locales). Cette 
structure permet la récursivité. On peut aussi créer des 
fonctions utilisateur par DEF FN, mais celles ci ne sont 
appelables qu'à l'intérieur du fichier dans lequel elles 
sont définies. 


Les fichiers peuvent être aussi des fichiers TEXT 
(compatibles fichiers ASCII sur cassette de la 41; et 
LIF1 du 75), DATA, et SDATA (compatibles fichiers DATA de 
la 41). On a aussi, et surtout, les fichiers BIN (binaires) 
et LEX (en anglais: language extension). Ces demiers 
pexmettent d'ajouter des instructions au Basic du 71. 

Les fonctions qui permettent d'exploiter ces fichiers 

sont les traditionnels PEEK$S et POKE. Traditionnels ? 
Seuls les noms le sont: PEEKS("2E3FE",6) rappelle les 6 
quartets (nibbles) à partir de l'adresse hexa 2E3FE. De 
même, POKE "50000 ","23456789ABC" place les 11 quartes 
suivants à l'adresse hexa 50000. Je ne dirai pas que c'est 
puissant, car j'ai peur de me répéter. Alors, je dirai 
simplement: C'est génial. 

HTD (hexadécimal vers décimal) et DTH$ (décimal vers hexa) 
permettent d'exploiter simplement et rapidement les 

deux fonctions ci-dessus. Les fichiers binaires sont 
appelés comme des sous-programmes classiques, par CALL. 
Quelque chose vous a peut-ètre choqué: l'adresse est 
codée sur 5 quartets. Eh oui, l'espace mémoire adressable 
est de 512 Ko. Ce n'est pas puissant, c'est én606ôrme. 

En fait, le 71 est une machine orientée quartets (et non 
octets), avec des adresses sur 20 bits (et non 16). 

HP choisit encore une fois une solution standard ... 
Notons avec joie qu'un module FORTH-Assembleur sera 
disponible, vraissemblablement en juin. Pour la 1° fois, 
tous les renseignements sur la structure interne seront 
fournis dès la sortie: ce sont les IDS (prononwer Ail Di 
Esse). 

L'assembleur permettra de remédier nous-même aux quelques 
insuffisances du Basic standard. (graphisme, alarme, touche 
SST non répétitive). 

Le dit Basic est un peu lent: 1'20" pour éxécuter 
10000 boucles, ce qui est logique, vue sa puissance. 
Entendons-nous bien: Titan est lent par rapport au 75. 
Cela le place quand même en tète parmi la concurrence: 
les FX 702, PB 100 et autres Sharp PC 1500 sont largement 


dépassés. 
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Ce Basic occupe la bagatelle de 64 Ko en mémoire morte: 
ça explique peut être ... sa puissance. 
La mémoire vive est de 17,5 Ko, qui comprend la mémoire 
d'écran. On peut augmenter théoriquement cette MEV à 33,5 Ko 
par adjonction de quatre modules de 4 Ko. Je crois person- 
nellement, mais ce n'est confirmé ni officiellement, ni 
officieusement, que des modules de 16 Ko (voire 64 Ko) 
vont sortir dans quelques temps. 


Le lecteur de cartes, annoncé aux Etats-Unis à 90 $#, 
utilisera les cartes du même format que celles du 75, sans 
toutefois relire les programmes de ce demier directement: 
ce n'est possible qu'en transformant le fichier en type 
LIF1. Cet accessoire, très utile en déplacements, fait 
corps avec Titan. (voir le schéma). Une fois installé, 
plus rien ne dépasse de la machine. On conserve ainsi le 
caractère de poche, tout en ayant une possibilité de 
stockage de masse. Chaque carte stocke 1,3 Ko. 


La documentation, quoiqu'en anglais pour ce banc 
d'essai est un modèle du genre. Rassurez-vous, il sortira 
en France avec des manuels en Français. Les deux manuels 
pèsent 1 kg 500, et vous aurez à lire 700 pages...Titanesque ! 
Mais vous saurez tout, ou presque sur l'utilisation du Basic 
du 71. 
Le manuel de l'utilisateur présente les concepts de la 
programmation, et l'utilisation de la bête. Deux index 
complètent avantageusement ces 300 pages. 
Le manuel de référence épluche et donne tous les renseignements 
sur chaque fonction. Des renseignements généraux fort utiles 
sont donnés à la fin, ainsi qu'un glossaire qui permet de se 
retrouver dans tous les termes un peu barbares. Hp ne se 
moque pas de nous: il fait 30 pages ! Ensuite, on a les 97 
messages d'erreurs, regroupés par ordre alphabétique, pui 
par numéros. Un index complète le tout. 
Quelque chose de bien utile sur ces 2 ouvrages: On a une 
table des matères sur le dos de chaque livre: ça permet de 
retrouver tout de suite ce qu'on cherche. 


En conclusion, on peut dire que Titan est très ... 
puissant : 
A l'usage, on constate que HP a encore développé un matériel 
qui va faire les beaux jours de PPC. Titan est vraiment un 
ordinateur où tout a été pensé jusque dans les moindres 
détails. Les quelques rares petites imperfections sont 
rectifiables: après tout, il faut bien qu'on s'amuse dans 
les clubs PPC ! 
Cet ordinateur, on devrait plutôt dire: un concentré 
d'ordinateur, est véritablement une merveille. Il ne 
nous reste plus qu'à attendre sa sortie... 
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Le HP 71 face à la HP 41 


Ce titre est bien ambitieux: comment comparer un 
ordinateur de poche parlant BASIC à notre calculatrice 
s'exprimant en notation polonaise inverse, la RPN ? 


En fait, si aucune comparaison rigoureuse n'est 
possible, je vais essayer de vous expliquer (sommai- 
rement) le HP 71 à vous, qui connaissez le 41. 

La plupart d'entre vous ne sont pas familiers du langage 
BASIC, aussi je n'insisterai pas trop sur les détails. 


Si la fourchette de prix annoncée (4000 à 5000 Frs) 
se révele ètre bonne, ce matériel ne concurrencera pas la 
41. C'est en fait un ordinateur plus puissant, qui se 
situe d'emblée dans le haut de gamme des ordinateurs de 
poche. Il permettra aux 41 cistes qui se sentent à 
l'étroit dans leur machine de passer la vitesse supérieure. 
Titan est vraiment étonnant par ses capacités. C'est la 
suite logique de la 4]. 


Imaginez ce que celle-ci fût à la HP 67 : une 
révolution ! D'un afficheur à diodes, on passait aux 
cristaux liquides. De 224 pas de programmes, on passait à 
2240 octets. Et l'alphanumérique apparaissait enfin ! 
Regardez aujourd'hui: 5 ans séparent Coconut de Titan: 
il parle Basic peut-être, mais quel Basic ! IL est 
beaucoup plus rapide que son aînée. Il dispose d'un 
afficheur graphique. Il a 33 Ko de mémoire vive et 64 Ko 


de mémoire morte ! 


Tentons quand même une comparaison, si vous le voulez 
bien, 
Tout d'abord, le mode CALC: ce qui fait le plaisir de la 
41 (entre autres), c'est d'avoir en permanence tous les 
résultats intermédiaires sous les yeux. Le mode CALC 
conserve cette possibilité, malgré l'adoption de la 
notation algébrique. On peut aussi revenir sur le 
calcul en cours, ou sur les 5 demmiers calculs effectués 
par l'intermédiaire de la pile de commandes. On peut mettre 
très facilement le dermmier résultat en mémoire. En bref, 
ce mode CALC est très puissant, très souple d'emploi, et 
s'utilise très naturellement. 
Du coté des mémoires, cela n'a plus rien à voir: finis les 
STO 00, RCL IND 17 et autres. Ici, les noms de variables 
sont du type A, B, 11, D8, C4$ . Les tableaux permettent 
une programmation de bien des problèmes plus aisée. 
Les fonctions mathématiques sont très bien réalisées: en plus 
de toutes les fonctions de notre 41 (y compris les E/X-1 et 
autres), nous avons lesnombres INF, MAX REAL, EPS, MIN REAL, 
+0 et -0. FACT(INF) nous donnera INF. Surprenant, n'est ce 

as ? 

Le fonctions statistiques sont les mêmes que celles de la 
33E ou de la 3%4C, mais sur plusieurs séries de variables, 
jusqu'à 15 très exactement, alors que les HP33 et 34 
n'opéraient que sur 2 variables. La différence est de 
taille, et perment les ajustements de courbes spéciaux sans 


s 


recourir à des programmes très complexes. 
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Les fonctions d'horloge sont rudimentaires, comparées 

au module Time de la 41: on dispose seulement de l'affichage 
de la date et de l'heure. On peut cependant avoir jusqu'à 
trois comptes à rebours, qui peuvent interrompre un 
programme, ou réveiller le Titan pour éxécuter une tâche 
bien précise, comme par exemple sonner toutes les 

minutes jusquà ce qu'on sorte du lit... 

On peut, comme sur la 41, réassigner toutes les touches. 
Il existe une fonction STARTIUP qui permet d'éxécuter une 
série de commandes à l'allumage, comme le départ d'un 
programme. A cet égard, le SF 11 paraît archaïque! 

La structure multifichiers, qui fait un des charmes de la 
41 est présente: mais quelle puissance ! 

Le traitement des erreurs est très complet: n° de la 
dernière erreur détectée, dernier message d'erreur, 
branchement si erreur, n° de ligne où s'est produite 
l'erreur: Rendez-Vous, vous êtes cemmés... 

Il y a 128 flags sur le 71, dont 64 sont à la libre 
disposition de l'utilisateur, comme les flags O à 10 de 

la 41. A noter que les flags O à 4 allument des indicateurs 
à l'affichage comme sur la 41. 

On peut utiliser des fonctions crées par DEF FN, ainsi que 
des sous programmes avec passage de paramètres. Mais de ce 
coté là, la RPN est plus souple d'emploi. 

Je ne peux pas terminer cette comparaison sans vous parler 
du microprocesseur. Il a la même structure que celui qui 
équipe notre 41: quelques différences cependant, et 

c'est heureux, car celui du Titan est vraiment plus 
puissant. 

Pas besoin de MLDL pour programmer en assembleur. Les 
registres intermmes font 64 bits, au lieu de 56, et ils 
sont plus nombreux. Instructions codées sur 20 bits au lieu 
de 10. L'espace mémoire adressable est de 1 Mégaquartets, 


soit 512 Ko. Du jamais vu sur un ordinateur de poche : 


J'espère que cette petite comparaison vous a fait percevoir 


la puissance du 71, mais aussi ses lacunes (rares heureusement). 


11 faut s'attendre à un développement dans les clubs PPC 
comparable à celui de la 41. 
En tous cas, à PPC-PC, nous relevons le défi. 


Le module FORTH pour le 71 


Je n'ai pas eu l'occasion d'essayer ce module, aussi 
les renseignements que je vous donne dans cet article, basé 
sur le manuel, sont à prendre au conditionnel, 


Ce module sera disponible, en anglais en juin. C'est une 
méoire morte de 48 Ko, qui comprend un FORTH, un éditeur, et 
un assembleur-désassembleur. Son prix sera de 150 $ . 


Pour ceux qui n'ont jamais entendu parler de FORTH, lisez 
l'article qui lui est consacré, page suivante. Le FORTH de 
Titan est basé sur le standard 'FORTH83'. Il est un peu 
différent, sur certains points, pour la plus grande joie 
des utilisateurs. 

Deux cent quatre vingt trois mots sont implémentés dans le 
dictionnaire, en ROM. On peut écrire ses propres primitives 
en assembleur. Le module crée en mémoire vive un fichier de 
type FORTH, de 3 Ko environ. Cette taille peut être augmentée 
ou réduite selon les besoins. Ce fichier, nommé FORTHRAM, 

peut être manipulé sous Basic. Cela veut dire qu'on peut 
changer son nom, le sauver sur cassette, etc... Signifi- 
cation concrète: on peut avoir un langage FORTH par type 
d'applications: un pour les Maths, un pour la physique, un 
pour les jeux, etc... On peut aussi concaténer plusieurs 
fichiers FORTH. La notion de "screen", ou d'écran, sur les 
FORTH habituels, n'existe plus de manière aussi rigide ici: 

ce sont les fichiers du 71 qui en jouent le rôle. 

Le Forth est augmenté des fonctions HP-IL, de quelques 
fonctions de traitement de fichiers. 

Du fait de la structure un peu particulière de Titan, 
certaines fonctions ont été rajoutées (manipulation de mots 
de 20 bits, par exemple. 

Forth peut utiliser uné suite de commandes en Basic, et 

vice versa. On a donc accès à la souplesse de quelques 
fonctions Basic, tout en conservant la puissance de Forth : 
HP fait bien les choses. 

La pile de commande est directement accessible sous Forth. 
Le Forth 83 permet une manipulation assez complète des chaînes 
de caractères, ce qui est assez agréable, vous en conviendrez. 
Ce Forth présente une caractéristique très intéressante, qui 
retiendra l'attention de tous les possesseurs de HP 41: On 

à accès à une pile RPN: tout y est: X,Y, Z et T, avec Last x. 
Les fonctions classiques de la 41 sont presque toutes là. 

HP fait très bien Les choses. 


L'éditeur permet de créer, modifier, copier, lister 
et imprimer des fichiers TEXT. La commande 'KEYBOARD IS' 
permet d'employer une console extérieure, un vrai clavier. 
c'est une commande Basic, mais qui aide considérablement 
toute entrée de texte. Cet éditeur est un programme Basic. 
Les commandes disponibles sont: ajouter du texte (T), insérer 
du texte (I), lister (L) et Imprimer (P), Copier (C), 
déplacer des paragraphes (M), effacer du texte (D), rechercher 
(S) et rémplacer (R). Cet éditeur utilise quelques fichiers 
pour stocker les assignations, le texte, etc... 
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L'assembleur est écrit en Forth. Il faut passer dans ce 
langage pour pouvoir l'utiliser. C'est un assembleur deux 
passes. C'est quasiment le même qui a été utilisé par Janet 
Placido et son équipe pour développer le Basic. HP fait 
vraiment bien les choses! 

Les pseudos instructions sont très nombreuses, et facilitent 
certainement bien le travail, La création de fichiers LEX ou 
BIN, ou les primitives FORTH, est vraiment simplifiée au 
maximum par ces pseudos-instructions. Plus besoin de s'em- 
bèter avec une structure de fichier complexe. tapez LEX 
suivi du nom du fichier pour créer vos instructions Basic. 
Il faut un octet d'identification du fichier que vous 

entrez par ID. MSG définit le début de la zone des messages. 
ENTRY commence la définition d'un mot Basic. 

Bien sur, cet assembleur est symbolique, c'est à dire que 
vous pouvez étiqueter des adresses pour des branchements, 
donner un nom à des constantes, etc... HP fait vraiment 
très très bien les choses. 

Le jeu d'instructions du microprocesseur est titanesque ! 
Il n'y a pas un ordre GTO, par exemple, il y en a six : 
Goto court (+ ou - 1 Ko), goto court si le flag carry est 
armé (+ou —- 64 octets), même chose si le flag carry est 
désarmé, goto long (+ ou - 16 Ko), goto très long branchant 
à une adresse absolue, et permet ainsi d'atteindre n'importe 
lequel quartet parmi le milliard quarante huit mille cinq 
cent soixante seize adressable . On a aussi un goto si le 
résultat du test précédent est vrai. 


Le manuel a l'air bien fait, quoique la version que 
j'ai eu n'avait aucun numéro de page, et bien sûr elles 
étaient en désordre ! Si ça peut aider HP, j'ai maintenant 
une version renumérotée ... 

Tout en anglais, il explique bien comment utiliser FORTH 
et l'assembleur. Mais attention, il vous faudra acheter 
des livres séparément si vous voulez apprendre et compren- 
dre le concept FORTH, et la programmation. 


HP frappe donc très fort avec ce module. Très bien 
conçu (d'après le mode d'emploi), et très puissant, ce 
sera à coup sûr un très bon argument tant pour les 
amateurs qui veulent aller au fond des choses (comme nous, 
à PPC) que pour les professionnels qui auront enfin un 
outil compact, puissant et rapide. 
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FORTH, vous avez dit FORTH ? 


Le but de ce petit article n'est pas de faire un cours 
de FORTH. Il existe, pour cela, de très bons livres, ou de 
très bons adhérents de PPC-PC. Je tenterai d'expliquer 
pourquoi FORTH est un langage attrayant pour ceux qui 
pratiquent la HP 41, ou la notation polonaise inverse. 


Deux notions fondamentales sont à considérer pour bien 
maîtriser ce nouveau langage: la Pile, et le Dictionnaire. 


s 


La pile est semblable à celle de notre 41, mis à part le 
fait qu'elle n'a pas 4 registres, mais autant que la place 
mémoire le permet. Elle sert à passer les données d'une partie 
du programme à l'autre, et à effectuer les calculs. On dispose 
d'un certain nombre d'instructions pour manipuler cette pile. 
Mais sa présence n'exclut pas celle des variables auxquelles 


on peut donner un nom. 


D'autre part, ce qui peut paraître déroutant, c'est 
l'écriture du programme. Je m'explique: Il existe, au départ, 
un certain nombre d'instructions de base, appelées 
"Primitives". On crée un "mot" FORTH en assemblant ces primi- 
tives, et en lui donnant un nom. Jusqu'ici, ça ressemble 
beaucoup à un programme 41: un Label alpha, une suite d'instruc- 
tions, et un END. A partir du moment où un nouveau mot 
FORTH est créé, il est réutilisable au même titre qu'une 
primitive classique. Comme sur la 41: il y a une analogie 
avec les appels de sous programmes de la 41. 

Le "Dictionnaire" regroupe tous les mots créés, ainsi que les 
variables et constantes, On peut le visualiser, avec toutes 
les primitives, en utilisant VLIST, qui correspond à un 
catalogue 41: VLIST = CAT 1 + CAT 2 + CAT 3 + catalogue de 
toutes les variables et constantes. 


FORTH permet également de définir des structures 
nouvelles. L'exemple classique est la création d'une structure 
de type tableau. On peut alors utiliser un tableau exactement 
de la même manière qu'une variable classique. Mais on peut 
aussi définir des structures moins habituelles: des tableaux 
triangulaires, par exemple. Vous n'êtes limités vraiment que 
par votre imagination. 


C'est également un langage interessant, car il permet 
un contrôle quasi-absolu de la machine. La plupart du temps, 
un "noyau" de FORTH comprend un assembleur-désassembleur. Le 
noyau est l'ensemble des primitives, écrites en langage 
machine. 


Du point de vue vitesse, il est très performant: de 10 
à 20 fois plus rapide que BASIC. FORTH n'est ni compilé, ni 
interprété. Un mot FORTH est une suite d'adresses qui seront 
éxécutées à partir du noyau. C'est une suite d'appels de 
sous programmes. 


FORTH est ce qu'on peut appeler un langage structuré, 
mais non évolué. L'écriture d'un programme FORTH nécessite 
une analyse complète du problème, et sa décomposition en 
petits mots FORTH élémentaires. Ce découpage oblige à 
structurer sa pensée, ce qui n'est pas un mal, mais il 
facilite aussi la recherche des erreurs. 


FORTH a de nombreuses qualités. Son seul défaut est peut 
ètre son manque de lisibilité, quoique on peut ajouter des 
commentaires. 


En résumé, je dirai que FORTH est le langage qu'il nous faut. 
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L'interface HP-IL pour le HP 71 


Comme pour le Forth, la description que vou allez 
lire n'est pas un essai, HP n'ayant pas eu le temps de 
me le prèter. Ce module d'interface se loge à l'arrière 
et, une fois installé, ne dépasse pas de l'appareil. Il 
sera disponible en français (et en France), à partir du 
début du mois de juin, pour un prix de 125 #, soit aux 
environs de 1000 FF. 


Ce module est de la même race que Titan: puissant, 
tout en simplicité. Vous pouvez l'utiliser de deux 
manières différentes: vous ne voulez pas savoir ce qui 
se passe dans la boucle et vous désirez seulement 
pouvoir utiliser une interface vidéo, une imprimante 
et un lecteur de disquettes, ou bien vous voulez 
exercer sur la boucle un contrôle serré, à l'octet près. 


La première manière, vraissemblablement la plus 
fréquente, pour la majorité des utilisateurs, est 
d'une simplicité désarmante: Branchez le HP-IL, 
allumez Titan: ça y est , tout sort sur l'écran vidéo. 
Exécutez PRINT ‘quelque chose', et ça s'imprime tout 
seul sur la première imprimante de la boucle . Avez 
vous jamais vu quelque chose de plus simple ? 

Quand on éteint Titan, il emporte dans son sommeil 
tous les périphériques avec lui. Tous ceux qui le 
peuvent sont placés en mode STAND BY . La boucle 

est reconfigurée à chaque mise sous tension, sauf si 
vous armez le flag -21 . Les périphériques sont nommés 
de six manières différentes: leur adresse (position) 
dans la boucle, le code qui leur a été assigné, leur 
numéro de référence , leur classe (imprimante, 

vidéo, cassettes, etc ), par leur numéro de classe 
(%67 pour une interface IL-IB), ou par un nom. 

Vous pouvez séléctionner une imprimante, même si 

elle n'occupe pas la première position dans la boucle, 
en faisant, par exemple, PRINTER IS :PRINTER (3), qui 
séléctionnera la troisième imprimante. 


Mais cette interface ne prend toute sa valeur que 
si on veut jouer serré: dès qu'on la chatouille, du coté 
de son registre d'état, au niveau du bit, alors c'est la 
pamoison. Elle fera ce que vous voulez, pour vous. 
Vous vouler regarder son registre d'état ? tapez STATUS. 
Vous voulez analyser un octet bit par bit ? BIT (255,4) 
vous dira si le bit n°4 dans l'octet 255 est armé ou non. 
Vous avez des fonctions binaires : BINAND, BINHR (ou 
exclusif), BINIOR (ou inclusif), BINCMP (complément à 1). 
PACK compacte la cessette, élimine les vides, et libère 
de la place. 
Mais cette interface possède surtout une caractéristique 
très intéressante: elle permet au 71 d'être lui même un 
périphérique d'une boucle controlée par un autre ordinateur 
que lui: exemple, mon 71 peut servir de périphérique à ma 
41. Hormis la notion de périphérique, ceci est très impor- 
tant car cela permet une communication réelle entre 
ordinateurs. Titan affirme ainsi sa volonté de s'ouvrir 
au monde extérieur. Il est vraiment fait pour le dialogue. 
Mais pourquoi se limiter au dialogue ? Titan peut 
controler 960 (neuf cent soixante) périphériques... 
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Imaginez un instant la prochaine réunion du PPC-Paris Chapter: 
Eh, les copains, j'ai un super-hyper-programme-inouïi ! 
Montre voir ? D'accord, je le veux. 

Et hop, on organise une séance de recopie de programme: on 
branche tous les 71 dans une même boucle, et on effectue 
le transfert. Si nous sommes plus de 960 (...), il nous 
faudra opérer en deux fois. 

La fonction-clef qui permet ceci, c'est CONTROL ON/OFF, ou 
PASS CONTROL. A méditer... 

Le 71 peut gérer les interruptions par ENABLE INTR puis un 
nombre. Il effectuera un branchement si un appareil lui 
envoie un octet d'interruption correspondant à ce nombre. 
ENTER et OUTPUT permettent de recevoir et d'envoyer des 
données. 

J'ai gardé le meilleur pour la fin: SEND. SEND rappelle 
quelque chose aux heureux possesseurs de 75 + fichier LEX 
1/0 Utilities, et aux possesseurs de HP 41 + module 
extended I/0. On peut envoyer n'importe quel message sur 
la boucle, simplement en donnant son nom... De quoi gérer 
ses propres interfaces en toute simplicité. 


Ce module d'interface est donc a la mesure de Titan: 
la simplicité, toute en puissance. Des voies nouvelles 
s'ouvrent, dans la communication inter-ordinateur. A quand 
le réseau PPC-PC ? 


CON CLU SION 


+ 


Vous voici arrivé à la fin de ce court dossier. 
Quelques exemples de programmes, de routines plutôt, sont 
donnés dans les pages suivantes. Pour vous faire comprendre 
la simplicité de programmation du Titan en Basic. 


Alors, achat ou pas achat ? 
PPC-PC ne connait votre cas individuellement, et ne 
peut donc pas vous conseiller. Néanmoins, après une 
semaine d'utilisation intensive, il s'est révélé très 
agréable d'emploi. Sa puissance m'a un peu plus étonné 
chaque jour, et je suis loin d'en avoir fait le tour. 
Malgré ça, sans aller jusqu'au fond des choses, il est 
accessible. C'est donc un bon appareil, et pour le 
débutant (en Basic, ou en informatique), et pour 
l'amateur averti membre de PPC-PC, et pour le 
professionnel. 
Personnellement, je pense que si vous avez les moyens, 
c'est un investissement que vous ne regretterez en 
aucun cas. Cet appareil ne se démodera pas de sitôt, à 
l'instar des concurrents, trop souvent éphémères. 
Même si vous n'avez pas les moyens, mangez des nouilles 
pendant un an, mais ne le ratez pas. Ce serait trop 


dommage... 
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Routine 'CONTRAST', pour HP 71 


Le contraste est réglable logiciellement, pour avoir toujours 

le meilleur angle de vue. Mais il est difficile de déterminer 

exactement quel est la valeur qu'il faut mettre. Il faut 

essayer plusieurs fois avant d'avoir la bonne valeur. 

Après une joumée de calculs, à explorer sa mémoire, “Titan 

m'a enfin sorti l'adresse où est mis la valeur du Contraste: 

en hexadécimal: 2E3FE. Il suffit donc de lire cette valeur. 

Le petit programme suivant fait 2 choses: affiche la valeur 

de contraste, et teste le clavier pour déterminer si on veut 

la changer. 

Ligne 10: on regarde 1 quartet à partir de l'adresse 2E3FE, puis 
on le traduit en fécimal avec la fonction HD. 

Ligne 20: on affiche la valeur. Le point virgule permet d'afficher 
la valeur contenue dans la mémoire C à la suite. 

Ligne 30: on teste le registre clavier: celui ci conserve en mé- 
moire les 15 demières touches entrées. 

Ligne 40: Si on n'a pas appuyé sur une touche, on recommence. 

Ligne 50: #50 est le code de la touche (A) 

Ligne 60: #51 est le code de la touche (v) 

Ligne 70: #38 est le code de (END LINE): on arrête 

Ligne 80: si la touche appuyée n'était pas une de ces trois là; 
on reteste la touche. 


Note: L'arobasque (© ) est le signe qui permet de placer plusieurs 
instructions “asic sur la même ligne . 


Remplissage de l'afficheur graphique 


GDISPÉ est une variable qui contient la mémoire d'écran, sous 
forme de 132 caractères. 

GDISP affiche la chaîne suivante, en prenant les valeurs des 
codes ASCII. Le bit de poids faible est en haut de la colonne 
affichée. 

La routine ci dessus prend 7,16 secondes à l'éxécution, en 
effaçant toutes les variables au préalable. 


Racines de l'équation f(x)=0 


Je ne détaillerai pas l'algorithme utilisé. Signalons quelques 
détails du Basic Titanesque: 

POS permet de rechercher le caractère 'X' dans la chaîne Fg#. Si 
il y est, ff a de fortes chances de renfermer une fonction, comme 
SIN(X), par exemple. 

Pour le INPUT, la chaîne afiichée après la virgule indique que 
c'est une valeur par défaut: si on n'entre rien, c'est cette 
valeur qui sera prise en campte. Après le point virgule, on 
trouve la variable dans laquelle ranger la chaîne demandée. 

À Ja ligne 70, je définis une fonction utilisateur, qui me 

permet de calculer la valeur de f(x) pour x donné. VAL(F#) me 
donne la valeur de F$, mais pour la variavle X. Dans la décla- 
ration de la fonction FNF, je dis que le paramètre que l'on me 
donne va être mis dans une mémoire qu'on appelle X (ne pas con- 
fondre avec le X du programme principal). Ainsi, si je demande 
FNF(2,5) Titan me répondra la bonne valeur, sans que j'ai à faire 
manuellement un transfert dans X à chaque fois. 

DESTROY efiace les variables suivantes. 


Cette routine s'éxécute en DELAY 0,0 pour avoir le maximum de 
rapidité. 


"CON TRAST' 


C=HTD(PEEKS (° 2ESFE", 1)) 
DISF ‘Contraste=':£C 

AS=KEYS 
IF A$=° 
IF A$=" #50" 
IF A$="#51" 


Routine 


10 
20 
FO 
40 
50 


60 


THEN 50 
THEN 
THEN 


& GOTOC 
GOTO 


10 
10 


CONTRAST Ci 
CONTRAST C+i & 


70 IF A$S=" #29" THEN END 
80 GOTO 50 

Recines de l'équation f(x)=0 
19 ! RECHERCHE DE RACINES DE L°EBUATION 
209 ! F{X)=0 FAR DICHOTONIE 
30 IF FOS{F#,"X°)=0 THEN DESTROY F$,4.H 
40 INPUT °FiXI=",F#:FS 
50 INFUT Borne inf=°:& 
80 INFUT ‘Horne sup="3:#E 
70 DEF FNF{X)=VAL(FS#S) 
80 IF FNF(A)XKENF (CH) 50 THEN DISF °FIiXxF2;r0" 
9O X=G+(EH-8) /2 
100 IF ARS(ENFIX)DCIE-10 OR A=E OK X=EH OK 
110 IF FNF(&)XFNF{X) 50 THEN A=X ELSE E=X 


120 DISF X 
130 GOTO 90 


Remplissage de l'afficheur graphique 
10 


20 


DI1S5F 

T=TIME 

FOR D=i TG 132 

GDISF CHARS (255) &GDISF# 
NEXT D 

T=TIME-T 

DISF T;'sec.” 


30 
40 
So 
80 
70 


& HEEF € GOTO 30 


X=A THEN DISF °F{°sX5:°)=07 


& END 





Programme CARACT pour HP 71 


Ce programme a pour but de faciliter la création des caractères 
utilisateurs. 

Ceux-ci sont inscrits dans une matrice de 6 x 8 points. Prenons 
un exemple: nous voulons créer un caractère bien utile en mathé- 
matique: le D rond (dérivées partielles). 

Dessinons la matrice: 


La 6e colonne doit être :ide, sauf 
si on veut un effet spécial, car 
il n'y a pas de blanc entre chaque 
caractère. 

De même, la 8e ligne est utilisée 
pour les jambages des minuscules. 
La ligne normale d'écriture est la 
7e ligne. 


LEFT R >» 





A28 


On définit un caractère par ses 6 colonnes. On construit 
chaque colonne en décomposant en binaire les éléments qui la 
compose. 

Chaque point dans une colonne est affecté d'un poids, qui est 
représenté à gauche, De ceci, vous n'aurez pas à vous soucier 
avec ce programme 

lancer le programme par RUN 

à la question'le colonne ?', entrez 010011, (END LINE) 
ensuite, 1001001 ,; 1001001, 010101, 00111, puis à la 

question ‘6e colonne ?' entrez simplement (END LINE), pour 
spécifier que la colonne est vide. 

Ensuite apparaît le caractère. 

Si vous voulez voir les codes qui le composent, taper (f), 
puis (CONT): vous voyez 50:73:73:42:28:0: 

Simple non ? 

vous avez vu que vous n'avez pas besoin d'introduire les zeros 
restant pour compléter à 8. Le programme le fait pour vous. 
Ainsi, la chaîne nulle (si vous tapez END LINE seulement) est 
considérée comme une chaîne où il manque 8 caractères... 
PAUSE arrête le programme. L'éxécution est reprise par CONT. 
K$ 1,1 représente le 1° caractère de K$ 

K$é 2 représente toute la chaîne K$ sauf le caractère n° 1. 


Test d'un Bit dans la chaîne C$ 


DEF FNT(B,C#)=INT(2%FP(NUM(CS#)/2"B)) 

Cette fonction, très utile dans la manipulation des cractères 
ou de l'afficheur, teste le bit B (de 1 à 8) dans l'octet 
représenté par la chaîne C$ 

2*B: 2 à la puissance BR 

NUM: valeur décimale du code ascii de C$ 

FP: partie fractionnaire de l'expression entre parenthèses 
INT: partie entière. 

FNT=-1 si le bit en question est armé (à 1) 

FNT=O si le dit bit est désarmé (à 0) 





10 
20 
30 
40 
JO 
60 
70 
80 
90 
100 
110 
120 
150 
140 
150 
180 
170 
190 
190 


200 


210 FAUSE 


220 


230 


est 


240 


2530 END 


DESTROY C&,7T & DI 
FOR I1=1 T0 # 
BEEFPF 46400,.005 € 
INPUT K$ 
IF LENCKS)56 THAN | 
FOR L=LEN(ES) T 
ES=ESE" 07 
NEXT L 
DESTROY F & EH=i 
FOR J=0 TO 7 
H=VAL{ESC1,117) 
Eg=k$£L21 
F=P+HXE 
E=B+E 
NEXT J 
T{I1)=F 
CH=CHELRCHRSE {F) 
NEXT I 
CHARSET C$ 
DISF CHR$&(1i28) 






FOR I1=i T0 6 
DISF STR$(T(I}): "2" 
NEXT I 
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ERSI 492 R 
ERS2 G6D À 
ERS3 889 
ES aûi À BIOUS LES POS DU As 
FRS LAB 

E886 3B8 
ERS7 230 


£ 
{ 
E8SS 358 M 
H 
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Je viens de recevoir mon MLDL hollandais ,merveilleuse petite 
bête, et ne peut m'empecher de le brancher à ma HP41 pour vous 


EAS9 248 programmer deux petits programmes qui j'espère vous plairons. 


E8SA 398 x C=5 

ERSE 37C p RCR 12 
ERSC JE CR 

EASD 6F8 M CEREGR 364) 
EASE 48 SEL PF 

EBSF AC v PT= 13 
EAS4 BAE . AC Ex ALL 
EASi 316 P LE É 


Le premier, s'appelle 'AIMR'', et c'est la version en microcode 
du programme paru dans un des derniers JPC. Ceci est une première 
version et ne traite que les nombres entiers. 


MODE D'EMPLOI: vous placez un nombre quelconque dans le registre X, 
ensuite vous éxécutez une fonction à votre choix (ou simplement 
ENTER) puis ensuite vous éxécutez ''AIMR' et vous pouvez 


E89? QNE . AC EX ALL ajouter d'autres chiffres au nombre affiché. 
E8S3 268 F SETHEX 
Eñ94 2E5 h 2C4f ET Prochainement une autre version paraîtra dans les colonnes du 
ER95 423 & COHC  ++ÿd journal, qui elle pourra traiter n'importe quel nombre. 
E8S6 304 d DEC PT 
ER97 ÎBE } f=f-1 5 
ERSE JE3 c GOHC  +-84 
F099 BBE } AC EX S Le deuxième programme s'appelle ''X-N'', pour le moment, je n'ai 
ERGR L1E + A=C g eu que le temps de faire cette version, mais prochainement, 
EBSE 308 E LE F vous verrez apparaitre le programme ''N-X'"' qui fait l'opération 
EG9C 24 T 9PT= 2 inverse. Le programme ''X-N'"' vous permet, en donnant un nombre 
E89D 2F2 c COKC  +-42 décimal à la machine de le transformer en un Nombre Non Normalisé. 
ERSE 3li4 d DEC PT Puis un "DECODE'"' vous donnera son équivalent hexadécimal. 
E8SF 3D8 HF LC F 
E8ñg 308 HE LC F MODE D EMPLOI: mettez un nombre decimal quelconque en X, puis 
EBQ1 268 D REGH=C 960 éxécutez la routine ‘"X-N'', vous aurez son équivalent NNN, 
ERGZ 3E8 E ETH puis éxécutez un programme "'DECODE'" (ou NH ... ), et vous 
aurez son équivalent en hexadecimal. 
33F G$E N E3S? 63F ? GOC ++f7 
Ezd& 451 - E358 ID F A=B-C K 
Ex! 618 # E3959 266 + SETHEX 
Ez4? 118  CLRAEC E3SA GEE E BC EX ALL 
E343 278 E DADD=C E35E 238 : C=CHi K 
Eïéé GFS M CEREGH 364 E3SC GEE E BC EX ALL 
E34S 2EE E 2CH8 ALL E35 303 € GOHC  +-88 
Exdé 204  RIK KC E3SE 268 H SETHES 
Ez47 df8 SELF E33F 8AE . AC EX ALL 
E345 390 x FT- ê E368 43C € RCE 3 
E349 2f8  SETIEC E361 AE . AC Eñ ALL 
EX4f 205 “ C=-C-i PT E362 136 6 LOI 
E34B 18E K fi=C ALL E363 888 .J COR 8814 
Ez4c 342 b 2448 FT E364 386 F ?H£E  % 
E34n 823 # GOHC  +#+fd E365 &1F _ GOC ++03 
Z4E 102 “ f-f-1 PT E366 282 E C=R+C FT 
EZ4F 329 7 AGE KE E367 GAE . AC EX EL 
E3S6 3E3 c GONC +-H4 E368 8EE E BC EË ALL 
351 GE £ C=8 ALL E369 230 € RER ë 
353 136 8 LDI ES6R 8AE . AC EX ALL 
E333 816 Y CON 822 E36B 182 B A=€ PT 
E354 IEC € RCE il E36C GAE . AC E4 EL 
E355 ?f8  SETDEC E36D 8E6 F REGN=C 364) 
E356 31 Z AC K ES6E 3E8 F RTK 
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SN Pour. H 3 46 ? Ÿ y & ex phorun an dater nachens (a mur -) 
Pour He=16 : panique. dur O0 paru Env. memovu 
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STeNCA EL (0 Ernie die 4fes pas d'obtemn ln di Hess dons 
Le (2) dt L'exhoñend + 2€ , Et , -E-100 
G) {Vow JPC vint P45 le 4 M PELANNE : &@ hot qut Le P, 
DCABEE" (4) M dique dan ele be bout ue nmplac fon n'uponte qu 
X (5) romfre nb 0 7 45) 
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PROGRAMME 1 S O S"' 
Kécessaire: 41C + 2 MEV, 
1 X-FUNCTIONS, 
1 TIME 


Optionel: 1 imprimante 


Que faire devant un blessé, un acci- 
denté, un malade dans la rue ? 

Vite, sortez vôtre H(ôpital?}) de 
P(oche?) préféré, modèle 41C, éventuel- 
lement modifié , X ou autre,faites 
(ÜSERI [I] ,répondez aux questions et 
exécutez (le travail indiqué, m'enfin, 
pas la victime!) 


Une remarque importante tout d'abord: 
Ce programme n'est qu'un simple divertis- 
sement. Il ne vise en aucune façon à fai- 
re de vous l'équivalent d'un secouriste! 
Si vous souhaitez le devenir (secouriste) 
il est bien plus prudent de suivre des 
cours d'abord. 

Une autre remarque ensuite:Si vous 
suivez des cours de secourisme, l'auteur 
décline toute responsabilité quand à l'u- 
tilisation frauduleuse de ce programme 
lors de l'examen du B.N.S. (Brevet Natio- 
nal de secourisme), bien qu'en théorie 
l'utilisation des calculatrices de poches 
donc la 41, n'y soit pas interdite... 


UTILISATION DU PROGRAMME: 

Lancement par la touche | I | (initiali- 
sation), en mode USER, puis répondre aux 
questions posées: 

par NON en faisant [x] 

par oui en faisant seulement Î|R 

par un nombre en tapant ce nombre sui- 
vi de |[R/S 

Les affichages du type: s 

ER EN  €D> le au : Loue [a 

dPs Ne <hs | SRE bu 
utilisent la fonction "GETKEY" du X=FUNC- 
TIONS, la modification proposée plus 
loin permet de se passer de ce module. 

Les indicateurs #9 à93 sont utilisés 
comme indiqué dans l'organigramme. 

Les boucles 83 et 86 tournent en prin- 
cipe correctement sur les 41 "normales", 
il faudra les retoucher sur les machines 
accélérées:une boucle du 83 doit durer 

5 à 6 secondes (avec un secouriste au 
M.C.E. et un autre au B,. à B.)et celle 
du 86 environ 4 secondes, 

En fin de ranimation, (si la victime 
est définitivement morte, ou flanque 
une paire de claques à son sauveteur), 
faire [R/S| (pour_arrêter le rythme 
du B. à B.) puis |F s 





CAT 1 
LEL'S 0 S 
EXD 1184 BYTES 
EI. fé BYTES 
SIZE 812 

PRP “5 0 5" 

BLéLBL “5 0 5° 
“38/3/84" “J-C BECKER" 


BH EL 55 

“"PUPILLES:" AYIER PSE 
"{RHETRECIES" ANIEE 
PSE “<H)OENALES" AYIEE 
PSE "€D>ILATEES" AYIEH 
PSE 


F#iEL 75 
TOHE 9 “<> €N D" 
AVIEH 6 GETÉET #=8? 
GTO 79 11 K=Y? GTO 82 
5 X=17 GTG 88 


3 X=Y7 GTS 8 


Le] 


3F41EL 88 
i STO {! “HIDRIASE" 
AVIEH PSE RTK 


ddttfl 51 
“HORHAL" & STO ii 
AVIEH PSE RTH 


Si#LEL 62 
“RETRECIES" ASIER -1 
STG 15 RTK 


SP#lEL SE 
*"EXTREMITES :*  SSIEE 
PSE “<PALES QU* 84 
PSE “<H)OEMALES" AY 
PSE “OÙ £BLEUES" 
AYIER PSE 
“pi Hi £B>" E ASIE 
GETÉEY If E=V7 GTO 6 
RUN 13 K=Y? RTE RIR 
15 E=Y? GTD 65 
“ERREUR" AVIEB FSE 


GT 56 


rr1 


EX 
EX 


BEL 65 
"BLEUES" AYIES PSE 
ST- 18 + KTH 


Gr4lEL 61 


"PALES" AYIEH PSE 2 
ST+ 16 RTK 
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ifdeLEL 78 

“ERREUR DE" ANIER PSE 
“DIAGHOSTIQUE"  AYIER 
TONE 9 TOHE & PSE 


GTO 58 

fi4elBL ! 

AON CF 68 CF 2 
"HENORRAGIE 7° PRONPT 
FC9C 23 SF 46 KEG 41 


1234LEL 56 

AON CF Gi CF 63 CF 83 
"CONSCIENCE 7°  PROHPT 
FS9C 23 SF 8j F5 &i 
*EG 9 “RESPIRE 7° 
PROMPT FS9C 33 SF BE 
FC9 62 GTO Si FC? BI 
GT 7E 


1434LBL Si 

& “HE. INSP./HH 7° 
AGFF FC? 82 PROHPT 
STO 62 FC? 82 ES 26 
AON “COEUR BAT 7° 

CF 23 PROHPT FSC 27 
SF 63 ACFF FC3 83 
GTO 68 FC7 82 CTO #6 
FC? 4j GTO 78 


I644LBl 68 

"Hb. EATTE./HH9° 6 
FC? 63 PROMPT STO & 
FC? 83 EG 38 KES 
#ER 41 FS7 83 GTS 


I76+LEL Bi 
FC? 81 GTO 88 
"P.L.S, * AYIEH ETHR 


1924LEL 66 
“ALLOHGER, RECOH" 
“HFORTER" AYIEH ETR 


Ig7+LBL 62 

“ALLONGER," AYIER PSE 
"LIBEREZ LES" AVIEE 
PSE “VOIES AERTEHHES”" 
AYIEH PSE 

"6. a BOUCHE" FS7 63 
"H+H.C.E." AVIER PSE 
FC? 82 RTH PSE 

“ ATTENTION" AYIER PSE 
“POUR INSUFFLER" AYIEH 
PSE TIME STO 84 & 
STO 86 SETSH EURSE 
“INSUFFLEZ"  ANIER 

TONE 8 PSE “INSUFFLEZ" 
AVIEH TOHE & PSE 
“INSUFFLEZ" AYIEE 

TOHE & PSE F5? 63 

GTO 53 GTO 86 


S OS 
(suite) 


2324LBL 38 

8 STO 67 RCL 42 12 
Ka? GT 21 3 - x 
RTH 1 ST0 67 

"RESP. RAPIDE" ASIER 
PSE ETR 


nt | 


87 


238HEL 31 

-1 ST0 67 

"RESF. IHSUF* ASIER 
PSE RTK 


2574LEL 38 

& STO 88 RL 43 58 — 
“POULS TROP * X{67 

GTO 31 48 - X87 RTK 
1 ST0 88 “HERPIDE" 
AVIES PSE RTH 


BFÉ4LEL 3i 
-1 ST0 85 "HET" 
AYIES PSE RTH 


283+LEL 48 

F5? 88 CTO 14 RÉL 87 
RCL 46 + 2 - X+#47 
RTH 


2934LBL 18 
& STO IS FS7 68 
GTO 14 CL 87 RCL BE 


+ H£E7 RTR 

FA3HLEL 11 

REG 56 ECL 87 REL BE 

+ RCL 18 + 3 - CLA 

A? "RISQUE" + CHOC" 
AVIER PSE RTH 


3194LEL 4i 

FC3 68 ETH 

"PT. CONPRESS." AFIER 
PSE RTK 


FI4 4 CF 18 1 ST+ 86 
“HO { " RELSR ATIME 
AYIES TOHE 9 "HE EE ” 
RCLSE ATIME ASIE 
TONE 9 “HCE 3 " RELSH 
ATIME AYIER TOME 9 
"HCE 4 * RCLSH ATIKE 
AVIES TOHE 9 “HE 5 * 
RCLSH ATIME AYIES 
TORE 3 TOKE 7 
“INSUFFLEZ* FIR 8 “Ho: 
ARCL 86 AYIEH TOHE E 
GTO 33 


3644LBL F 

STOPSH RELSH STO 65 
ADY SF 12 FIX 6 DATE 
CLA AIATE AVIEH PSE 
CF 12 FIK 4 FC? 83 
GTO 87 EÆCL &4 

"DEBUT KCE * ATIKE 
AVIEH PSE FIX à 
"DUREE MCE “ RCL 85 
ATIME AYIEH RTE 


391+LEL 86 

CF 22 “INSUFFLER* 
AVIEH TOHE A PSE PSE 
RCLSH FIX 4 * © 
ATIME ANIER PSE 

FC? 22 GTO 96 CTOF 


4grelEL 87 

“DEBUT BE. a 8.  RCL 84 
ATIME AYIEH PSE 

“DUREE B, a B.:" RCL 85 
ATINE AYIEH EHI 


EXEMPLE 


Hs 


ae 3 

h EUR 
PUPILLES: 

{RETRECIES 

<HIORHALES 

CDHILATEES 

<R {Hi € 

HITRIASE 

RESPIRE 7 

H EUR 
COEUR ENT 7 


Hb. BATTE. “HR? 
96.8888 EUR 

POULS TROP RAPIRE 

ALLOHGER.: 

LIBEREZ LES 

VOIES AERIENRES 
E. a BOUCHE 
ATTENTIGH 

POUR IHSUFFLER 
IKSUFFLEZ 
IHSUFFLEZ 
IHSUFFLEZ 
IHSUFFLER 


ef 
Dee] 
1 “1 


ne 
Fri era 
Em] 


“et CU CH 
En fu LL 
er Tu 

: 


co ET 
lu 
ÉD lai 
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Conscience ? 
OU) 






EbDLS6 Uerilie 
i'etal des pupilles 


ES PIRE 
KNON 6 ou 


“g2zYŸ 1 
Demande/Stocke en RSQ, 
k nb. d'inspir/mn 














JCENC 
“en Conscien € 
gut 











D: 
Lel : TESE dla Fréqu 
des inspirakions: 

SH + 


N<l2 [12 REIN >24 

tro tro 

En 
ÿ__ÿ 


Cœur bat? 


_. oui 
Non RESPIRE9 23 
ow ‘ Denarde/STaækKeen #3 


le nb- do baltéements/mn. 


LAL2S TETE 
des bakements: 


23 # 











Ia Frequ. 


ERREUR 
DE 
DIAGNOSTIQUE 


LBL AJ ESTE Si 
RISQUE CHOC. 
L&L ki Vérifie si 
point de compiésiun 
nécé Sseur 


AFPiche les LE 


= Su Lei 2 
a appliquer ge pi 






LeL #9 LeL pit 
Victime Victime 
Conscient € . inconsciente, 


respit” fes prant. Ai 
i 


LL F  AFfiche 


de Ces van: mat oAS 


POUR SUPPRIMER LE 
K-FUNCTIONS : 
REMPLACER LES LIGNES 
28 (AVIER) à 
36 €GTO 79} PAR: 
PRP ** 


AOK PEOMPT H-* 
ASTO X AOFF GTG THE 
EHI 


a 


ET RE: 
F4 €8} à 
88 €GTO 56} PAR: 
PRF 


AOH “PROMPT" *H-* 
ASTO # “H-* ASTET 
AOFF 4=Y7 RTH 
GTO IND & .ERE. 


PUIS AJOUTER LES LABELS: 
LEL 68 -HEL H- 

LEL 81 -3LBL H- 

LBL 82 -HBL R- 

LBL 65 -HEL B- 

LBL 61 -HBL P- 

MAIS EN COURS H'UTILISA— 
TION: TAPER SEULEMENT LA 
je LETTRE HU LABEL. 


LOL #2 


VICAIME 
respire plus. 


Cœur Cœur ne 
BAT BùT PLUS 
Ryt me le R>t me le 

à EP M,C,E+ 8.26. 
fou R/S ol abndl 






carac tevistiques 
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S O S (Suite) 


J'espère que ce programme vous aura permis de mieux 
supporter ( et peut-être de survivre ) à la lecture de 
l'article sur la 71 . Si vous êtes intéressé par plus de 
détails, je suis prêt à répondre à toutes vos questions 
dans les colonnes de JPC (sauf si vous osez prétendre 
tenter d'insinuer que ce programme serait la suite logi- 
que de mon programme de COQ AU VIN L )}. Ecrivez-moi, soit 
au club, soit directement: J-C BECKER, 47 Bd de MENILMON- 
TANT, 75011 PARIS . 

Et pour finir, voici un lexique des principaux termes 
de secourisme utilisés ici: 


*x ASPIRINE: à prendre avant, pendant et après la lecture 
de JPC. 

x B. à B./B. à BOUCHE/BOUCHE à BOUCHE:consiste à envoyer 
de l'air dans la bouche de la victime au moyen de sa pro- 
pre bouche. N'est pas toujours aussi agréable qu'on le 
pense ! 

X BNS: Brevet national de secourisme; sanctionne une série 

de 13 cours de secourisme. 

x CHOC/ETAT DE CHOC: insuffisance circulatoire dûe en gé- 
néral à une grosse perte de sang. Entraine la mort en quel- 

ques heures , sauf hôspitalisation. 

KEXTREMITES:toutes celles du corps humain. On peut se con- 
tenter d'observer les doigts des mains, et les lobes d'oreil- 
les,, 

X M.C.E.: massage cardiaque externe.Technique permettant 
(parfois...) de redémarrer un coeur arrêté.Son usage est 
rigoureusement interdit à toute personne non titulaire du 
BNS et de la mention RANIMATION . 

% MIDRIASE: dilatation anormale des pupilles , signe que 
le cerveau n'est plus irrigué par le sang. 

x P. COMPRESSION/POINT DE COMPRESSION:compression d'une 
plaie laissant s'échapper le sang d'une artère. 

x P.L,.S./POSITION LATERALE DE SECURITE: position allon- 
gé sur le côtépour les personnes inconscientes, mais res 
pirant correctement. 

* VOIES AERIENNES: bouche, gorge,...Vérifier que rien ne 
les obstrue. 


Chirurgicalement vôtre: 
Jean-Claude BECKER 


ÿ | e pifal de Dadhe 
] 


Ê 1 Module T/X | 
ENTREE DES 
p amauL ANCE S Ÿ 
TT UN * 


ERD 11 


84: 
#1: 
2: 
83: 
gd: 
85: 
86: 
87: 
83: 
: F658 REGIROR 
: F77A -—- 

: FC4D COMPILE 
: F134 LOCA 

: F119 LROH 

: F164 COD 

: F16F DECOD 

: FD67 ROMCHÉX 
: F61C ROMDREG 
: F893 MER 

: F725 BISASH 
: F453 CAT 

: F1B2 CET 

2: F3ES GE 

: F778 -—- 

: FE8Z THROH 

: FE93 TRROH 

: FF3D TERSYH 
: FF8È THDIS 


“LA ROUTE DE LA ROM 





28 FOHCTIOHS 


F3FF ERAHCO-RLDL 
F4CS5 RAHHR 

F2EC HATORRH 
F34D AFAT 

F282 FAT 

FAER MOVE 

FI7E CEBL 

F6D7 COPYR 

F6F2 ROMSUR 


Faisant suite à l'article sur la route de 





= 


a rom, vous trouverez 


ici les fonctions de deux eproms que vous pouvez consulter au 
siège du PPCPC 


ERAMCO-MLDL : 


RAMWR 


MMTORAM 


AFAT 
DFAT 
MOVE 
CLBL 
COPYR 


ROMSUM 
REG) ROM 


COMPILE 
LOCA 
LROM 
COD 
DECOD 
ROMCHKX 
ROM)REG 
MNEM 
DISASM 
CAT 

CBT 

GE 

WROM 
RROM 


XRSYN 


MDIS 


ADELMANN 11: 


XQMIC 


P-H 
COD 
DCO 
XQS 


nom de l'éprom, c'est celle qui est fournie avec 
le MLDL hollandais; 

est un éditeur de texte pour le MLDL (demande 
l'adresse puis on écrit dedans en hexadécimal; 


: permet d'écrire un programme utilisateur directement 


dans la RAM du MLDL (demande le nom de la routine et 
l'adresse ou on désire quelle soit écrite, se charge 
de l'enregistrer dans le catalogue); 


: permet de rajouter quelquechose au catalogue; 
: permet de retirer quelquechose du catalogue; 


écrit un bloc d'adresse (du MLDL) dans un autre bloc; 
efface la RAM du MLDL comprise entre deux adresses 
donnée; 


: permet d'écrire 4k d'une ROM quelconque dans la RAM 


du MLDL; 

calcule le checksum d'une ROM ou de la RAM du MLDL; 
transfère 5 mots contenus dans les regitres de données 
dans la RAM du MLDL; 


: permet de compiler un programme contenu dans la 


mémoire vive du calculateur; 


: vous permet de localiser un mot contenu dans une 


page complete de 4k; 


: vous permet de trouver le dernier mot non nul contenu 


dans la RAM du MLDL; 
CODE 


: DECODE 


teste si une ROM ou une RAM est éxistante ou en bon état 


: place la RAM du MLDL dans les registres de données; 


donne la mnémonique d'un mot donné; 

désassemble une page quelquonque; 

catalogue selon la page donnée en X 

compte le nombre de bytes utilisés dans un programme 
dans la RAM du calculateur; 

met le pointeur au dernier END de la RAM du calculateur 
(END final); 

en langage utilisateur, écrit la RAM du MLDL dans une 
cassette; 

en langage utilisateur, permet de recopier la cassette 
dans le MLDL; 

en langage utilisateur, calcule une valeur relative 

à un numéro de XROM donné, pour le programmer dans 

la RAM du calculateur (s'utilise avec la routine SYNT 
qui charge la fonction en modeprogramme, mais 
actuellement manquante au catalogue; 

en langage utilisateur, désassembleur. 


nom de la CCD ROM, le listing joint, est aperçu des 
fonctions qui ont déjà été étudiée; 

on donne une adresse, éxécute la routine à partir 
de l'adresse donnee (XEQ MICrocode); 

indique en hexadécimal la position du pointeur 

code 

decode 

demande les valeurs hexadecimales d'une fonction 


synthétique et l'éxécute (XEQ Synthétique) 
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PEEK : même sens que la fonction PEEK du basic, mais dans 
la RAM de la 41C, rappelle les registres bit par bit; 


XROH 4 33 FONCTIONS RUN : permet de faire l'éxécution d'une fonction ou d'un 
programme contenu dans le XMEMORY sans avoir besoin 

g4: CA85 ADELHANH IT de le rappeler en mémoire principale; 

gi: CAC4 XONIC HEXKY : attend un code hexadécimal de 4 caractères aprés 

@2: C157 F-H avoir redéfini le clavier de telle façon que seules 

43: C54£ COL les touches 9 à 9 et À à F, ainsi que les touches 

ä4: C569 NCG d'effacement soient valides; 

5: C2F3 X85 fa : permet de montrer à l'affichage par leur instruction 

6: C4SE PEEK tous les octets de la RAM du 41C:; 

7: C674 RUN fo : même que précédemment mais en ROM; 

@8: C6B3 HEXKY CNTB : compte le nombre de bytes contenus dans un programme; 

63: CGD8 A TOGP : change l'état privé d'un programme ou de la memoire 

18: CAC +0 complète de la HP41; 

11: CAFS 88 LBY : place tous les octets voulus en mode PRGM, permet 


12: Cité CHTB 
13: C192 TOGP 
14: CIBE LBY 
5: C235 HPR 


de programmer toutes les fonctions synthétiques et 
n'importe quelle chaine alphanumérique voulue (la 
fonction demande une entrée décimale) 


16: C285 ARELI ARCLI : place en ALPHA le contenu de X; 
can E : branche le pointeur au END final; 
ne TON : permet d'éxécuter un TONE de frequence et de durée 
+ C368 GFT ayant un argument compris entre Ÿ et 999; 
pañc F CET : change le type d'un fichier contenu en mémoire 
92: C4fF POKE CFN : change Le nom d'un fichier son tenu en XMEMORY; 
52: C4C9 CST KY : assignations de touche synthétiques ou non; 
54: CSAE CFX POKE : fonction inverse de PEEK; 
25: CSBZ SFX CST : SST et BST, permet de lister un programme à l'affichage 
56: CSDD G-4 sans avoir besoin d'appuyer sur la touche à chaque pas; 
27: CSF6 HRCL CFX j efface n'importe quel drapeau (9 à 55) dont le numéro 
28: CSFC HSTO est spécifié en X; 
29: C649 PTNY SFX : fonction inverse de CFX; 
38: C761 CAT A-X : ATOX sans disparition du carctère; 
31: C2EL E4Y NRCL : RCL relatif non normalisant; 
32: C2EB Y-K NSTO : STO relatif non normalisant; 
RTNX : perret Ge faire un RIN en XMEMORY; 
CAT : identique au CAT de la HP41CX; 
X+Y : somme binaire; 
Y-X : différence binaire. 


eo 


Frédéric Poupon nous du aline de 
bien sûr HP-71, 
cassette. 

et environ 1000 F 


i minute: 
a le lecteur de disquettes 
la boucle HP-IL. Utilisable avec 41; 75 et 
avec les ordres standards de gestion de la 
Coût approximatif: 2500 F pour le lecteur, 
Pour l'éléctronique: 
Capacité: Double face, 


Disquettes de 5j pouces: | 
ie les détails et les plans dans le prochain numéro : 


double densité, 160 Ko par face. 
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Arithmétique fractionnaire 
Programme pour HP 41 


Ce programme vout permet de faire des calculs sur 
les fractions. Addition, soustraction, produit, élévation 
à une puissance, simplification, etc... 


Pourquoi ce programme, alors que d'autres ont paru, 
nottament dans "l'Ordinateur de Poche" ? Pour trois 
raisons principales: il est court, compact et tient sur 
les 2 pistes d'une carte magnétique, d'une part. Ensuite, 
il est rapide, corrolaire de la raison précédente. La 
dernière raison est qu'il ne prend aucune mémoire de 
données pour s'éxécuter (sauf ST et RC): c'est donc, 
pour les débutants, une excellente raison pour le 
décortiquer. 


Sa structure est modulaire: vous pourrez enlever 
ou rajouter ves propres modules. Il faut quand même que 
vous gardiez les lignes 48 à la fin. Analysons le 
module par module. 


Addition, soustraction, produit et quotient de 
fractions. (Labels F-, F+, Fx, F/, lignes O1 à 20) 
entrez la première fraction, la deuxième, et éxécuter 
l'opération désirée. Vous aurez peut-être besoin de les 
assigner. 

Exemple: Effectuer le calcul 5 + 9 
3 15 
entrez la première fraction: 5, enter, 3 enter, puis 
la deuxième: 9 enter 15, puis XEQ "F+" 
Vous voyez que l'utilisation est très proche de celle 
de notre pile habituelle. Sauf que celle-ci a 2 niveaux. 


Simplification de fractions: entrer la fraction, 
XEQ "S". Exemple: 
7Tè=8 entrez 72, et ENTER, 81, XEQ "S". 
81 9 


F°N: fraction à une puissance N: entrez la fraction, 
puis n, XEQ "FN" Exemple: (543) 5 
5, enter, 3 enter 3 XEQ"F°N" donne 125/9 


D-F effectue une conversion décimal vers fractions 
À partir d'un nombre dans le registre X, ce programme 
essaye de trouver une fraction qui approxime le mieux 
ce nombre. Problème, c'est trop précis: par exemple, 
3, 1/X, XEQ "D-F" donne 3333333333/1E10. Mais 0,25 marche 
bien. 


Dans les caïiculs de développements limités, par 
exemple, ou en série entière, on a souvent besoin de 
chercher une primitive de 5 x° . La fonction "PR" permet 
d'en trouver une très 3 simplement. Entrez 5, enter, 
3, enter, 6, XEQ "PR" . On a alors le coefficient du 
terme de degré 7. 


Enfin, deux fonctions bien utiles dans les calculs: 
ST et RC, qui permettent de stocker une fraction (ou de 
rappeler) dans une mémoire (en fait 2 mémoires). 
C'est utile pour les calculs complexes. 


J'espère que ces quelques modestes lignes de programme 
vous seront utiles. Quant à moi, elles sont toujours dans 
ma machine (du moins en cours de maths). 


A bientôt ; 
Pierre DAVID NG {3 PAGEZ2 


21:29 30.03 
O1LBL "F-" 
02 CHS 
OSLBL "F+" 
04 STX T 
OS X<FY 

O6 KEDN 

O7 XE5Y 

08 STX T 
O7 * 

10 RDN 

11 + 

12 R° 

13 GTO 10 
14LBL "FX" 
13 XS5Y 
18LBL "F/" 
17 STX T 
18 RDN 

19 * 

20 GTO 10 
21LBL “FSN" 
22 VX 

23 XE5Y 

24 LASTX 
293 YTX 

28 X<5F 

27 GTO 10 
28LBL "D-F" 
29 E1i0 
50 * 

31 LASTX 
32 GTO 10 
SSLBL "ST" 
54 STO 02 
33 XEFY 

56 STO O1 
37 XS5Y 
38 GTO 91 
S9LBL "RC" 
40 REL O1 
41 REL 02 
42 GTO O1 
ASLBL "PR" 
44 1 

45 + 

464 * 

47LEHL "S" 
48LHL 10 
49 STO Z 
90 ÀES 

oi XS<5FY 
92 STO FT 
33 ABS 
SALE 00 
93 MOD 


J6 LASTX 
37 XCTY 
99 X07? 

39 GTO 00 
60 KRDN 

&i LASTX 
62 ST/ Z 
685 ST/ 7T 
64 RDN 

65 RDN 

66 X507 
67 GTO O1 
68 CH5 

69 XSZY 
70 CHS 

TL X<EY 
72LEHL O1 
73 X£5 L 
74 CEX 

75 X<> d 
76 FIX © 
77 CL 

78 ARECL Y 
77 "h/" 
80 ARCL L 
81 X<> d 
82 X<> L 
85 AVIEW 
84 .END. 


24 REGISTRES 
163 OCTETS 


F-: SOUSTRACTION DE FRACTIONS 
F+s ADDITION DE FRACTIONS 

FX: PRODUIT DE FRACTIONS 

F/3 QUOTIENT DE FRACTIONS 

FN: FRACTION À UNE PUISSANCE N 
D-F: DECIMAL VERS FRACTION 

ST: STOCKAGE DE FRACTION 

RC: RAPPEL DE FRACTION 

PR: PRIMITIVE 

S: SIMPLIFICATION DE FRACTION 


FA 
Es 
ps 
Cal 
a 
D 
ga 
tri 
Ed 
Ed 


EXD 


PRP “HIY* 


BIEL “HIY" 
ÿa CLA 

83 FIK 8 
f4 CF 23 
85 AH 


B6+Lel 18 
87 ECL Ÿ 
88 ECL Ÿ 
43 

18 IHT 

ii ARCL & 
12 AYIEN 
13 TOHE 9 
14 a2T 
15 * 

16 LASTA 
if 8 

18 STE NX 
19 + 

28 RIH 

êl - 

êè El 
83 # 

24 Rt 

25 GTO 18 
26 EH 


43 EŸTES 


| | Bi+LBL “SH” 
Fonctions Hyperboliques pour HP 41 SF 98 CT) 68 


+ “CH: 
La HP 41 est très bien équipée en fonctions tri- y ” 


gononétriques et je fus surpris, eh l'achetant, de ne 


pas trouver un arsenal semblable de fonctions hyper- A6+lBL && 
boliques. D'autres avant moi avaient pallié cet EtX ENTER ST/ Ÿ 
inconvénient, et je leur empruntais leurs idées, ST/ Y XOY FS7C G& 
voire leurs programmes. Mais je n'utilise pas ces CHS ST+Y CLX 2? 
fonctions mutantes tous les jours, et entre deux ST: Ÿ RIK RTK 
utilisations successives de ces programmes empruntés, 
j'oubliais fréquemment quels étaient les registres 28#L6L “TH” 
mis en cause. Ce qui entrainait d'innombrables Ets STkX E STFT 
problèmes triviaux, lorsqu'il s'agissait d'incorporer ST+ x CHS XGY ST+Ÿ 
ces fonctions à mes propres programmes. 57/7 Y RH RTK 

Une crise de nerf consécutive à ces problèmes : 
m'a incité à créer mon propre outillage hyperbolique, 


qui a l'avantage de ne jamais endommager que les regis- 
tres X et T, et qui toujours stocke X en L. Ces 


fonctions sont donc utilisables de la même manière 3S+LEL *ACH 


que leurs équivalents trigonométriques. 1 
37#LEL 86 
s 3 : te E FS?7C 88 CHS 
Conversions Binaires-DEcimal. CT- Y NL HT SORT 


Ces deux programmes montrent une manière d'utiliser X(* S1T+Ÿ &CŸ LR 
la fonction X<>F du module X-Fonctions. La rapidité est #7 ABS RIN RTE 
appréciable. L'idée initiale repose sur le fait que 
j'ai rarement l'occasion d'utiliser des nombres S4+LEL “ATH” : 
binaires de plus de 8 chiffres. ES Re à 
BI, qui convertit de décimal en binaire, n'accepte done A ST+Ÿ CRS ST/ 
que les nombres inférieurs à 256. DE, qui fait L'inense ee Pe 
n'accepte quant à lui que les nombres (binaires) . RTN EN a 
inférieurs à 11111111. ' 

Le mise en oeuvre des deux programmes est la même: 
vous introduisez le nombre à torturer en X, et vous 
appelez le bourreau. 

Dans BI, tout nombre supérieur à 256 sera impitoyable- Bi+LEl “BI” 
ment rejeté par X<>F, et DE ne tiendra tout simplement Be+lBl 8i 
pas compte des deux chiffres les plus à droite 8 AC KOF CLX 7 


(bit de poids faible) s'il y en a dix au lieu de 8. REL b O&CDY 16fK 
F5? [HD L ST+ 2 RIN 


LAST4 ROY DE T 

ST0 b RDK RDH SICH 
LASTA F5? 86 + 8 
VIEH 4 %6od FIRE 
VIEN Ÿ OX d RIDH RTH 


Division infinie 


DIV est venu du défi lancé par un utilisateur 
d'un ordinateur de poche parlant Basic, qui prétendait 


qu'il était impossible, sur HP 41, de mettre bout à 334LEL “HE 

bout des chiffres à l'infini en les faisant défiler Z4LEL 62 

de manière continuelle à l'écran. ä LOF RIN Es - 7 
DIV, avec son soupçon de synthétisme, calcule VOY RD KOY El 

toutes les décimales de la fraction rationnelle Y/x. + ENTERT INT +97 

On peut à tout moment arrèter le programme, noter les  GF INhT - KX{>Y DSE ? 

chiffres qui courent à l'écran, et relancer, à STO b KONY K+87 SF 8 

l'infini. Vous avez constamment huits chiffres qui CLST KOF RTK EI 


défilent à l'affichage. Sinon, le programme n'a aucun 
interêt, et pour les longs calculs, il vaut beaucoup 
mieux sortir les décimales sur imprimante. 

Chers adhérents de PPC-PC, amusez-vous bien 


Pierre LANGLOIS 
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Frofession 
Interets 





Coninerté avez-vous connu FFC Faris Chapter? 
Fublicite Magazine Autre Club 


Relations, membres du club, outres 





Que recherchez-vous ou sein du PFC Faris Chapter? 


Je souhaite adherer au club FFC Faris Chapter conformement aux statuts de 
l'association. ôu mieux de ma connaissance, .je declare avoir le droit de 
fournir tous les programmes et informations que je vous enverrais (sans 
enfreindre des obligations de secret a l’egard d’autres personnes ou 
organismes) pour publication dans le .journàäl de liaison, sons obligations ni 
responsabilite d'aucune sorte ( en cas d‘utilisation frauduleuse ) de la 
part des dirigeants du FFC Faris Chapter. 


late ft 1/8 + t/19$ tt 

Signature precedee de la mention "Lu et approuve" 2 eee 

Le montant de la cotisation au FFC Faris Chapter s’eleve à 30,00 FF, 

Faiement effectue le t_t_+/8 t t/19t tt a l’ordre de FFC Faris Chopter,. 
par ÊE 1 Cheque Bancaire Nr Hanque 


EF 1] Cheque Fostal 3 Volets Nr 
Ê 3 Mandat Lettre 
Joindre à votre nn une Tor timbree na votre adresse, 





L’ et pour un an au por J+- Cs riteÿe a 150, 00 FF, 

Les anciens nugeros sont disponibles ? Nr { a 3 + 15,00 FF piece, Nr 4 a 10 + 20,00 FF piece, 
Frais d'envoi 3,10 FF par numero ou 13,10 FF les 10 numeros » 

€ 3 Je m'abonne a compter du ? + 4/5 9 :/19% + + © ] Je commande les nuneros 
Faiement effectue le 1 ti +t/$ tr t/19t tt a l’ordre de FFC Faris Chapter, 


Û 3 Cheque Roncaire Nr 2 
CO 1 Cheque Fostal 3 Volets Nr 
| Monet Lettre 


BHanque 


Det EE envoyer Loute correspondance «a $ 
Mr Fhilippe GUEZ, 56 Kue Jean Jacques Rousseau, 73001 FARIS (€ FRANCE 
Freciser eventuellement votre numero de membre: 


DR ER RÉ AN NN NT NE EN NN IN PR NN EN NL 
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